Исходный код

'==============================================================================
' Установить и прочитать возвращаемое значение скрипта
'==============================================================================

'Задать числовое значение  свойству RetValue
ThisScript.RetValue = 123

'Вызов процедуры...
Call Test()

'Чтение нового значения свойства
MsgBox ThisScript.RetValue

'==============================================================================
'В процедуре просто изменяется значение свойства ThisScript.RetValue
'==============================================================================
Sub Test()
        'Сообщить значение     RetValue 
        MsgBox ThisScript.RetValue
        
        'Изменить значение RetValue 
        ThisScript.RetValue = ThisApplication.CurrentUser.Description
End Sub
'==============================================================================